home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS064.dsk / LOAN BALANCE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  35 lines
  1. 10  PRINT "REMAINING BALANCE ON A LOAN"
  2. 20  PRINT 
  3. 29  REM  - STATEMENTS 30 TO 130 REQUEST USER INPUT
  4. 30  PRINT "REGULAR PAYMENT";
  5. 40  INPUT R
  6. 50  PRINT "PRINCIPAL";
  7. 60  INPUT P
  8. 70  PRINT "NUMBER OF PAYMENTS PER YEAR";
  9. 80  INPUT N
  10. 90  PRINT "ANNUAL INTEREST RATE";
  11. 100  INPUT I
  12. 109  REM  - CONVERT FROM PERCENT TO DECIMAL
  13. 110 I = I/100
  14. 119  REM  - ENTER THE PAYMENT NUMBER WITHIN THE YEAR, I.E. N1<=N
  15. 120  PRINT "LAST PAYMENT MADE ( PAYMENT N0. , YEAR )";
  16. 130  INPUT N1,Y
  17. 139  REM  - INITIALIZE REMAINING BALANCE
  18. 140 B0 = P
  19. 149  REM  - LOOP TO ACCUMULATE AMOUNT PAID SO FAR
  20. 150  FOR J1 = 1 TO N *(Y -1) +N1
  21. 159  REM  - CALCULATE INTEREST PAID WITH EACH PAYMENT
  22. 160 I1 =  INT((B0 *I/N) *100 +.5)/100
  23. 169  REM  - CALCULATE AMOUNT AMORTIZED WITH EACH PAYMENT
  24. 170 A = R -I1
  25. 179  REM  - CALCULATE REMAINING BALANCE ON PRINCIPAL
  26. 180 B0 = B0 -A
  27. 190  NEXT J1
  28. 199  REM  ROUND OFF, PRINT
  29. 200  PRINT "REMAINING BALANCE = $"; INT(B0 *100 +.5)/100
  30. 210  PRINT 
  31. 219  REM  - RESTART OR END PROGRAM
  32. 220  PRINT "MORE DATA? (1=YES, 0=NO)";
  33. 230  INPUT X
  34. 240  IF X = 1  THEN 20
  35. 250  PRINT "<CTRL-D>RUN HELLO"